home *** CD-ROM | disk | FTP | other *** search
/ Quick PC 61 / Quick PC 61.iso / I386 / WMS.CAB / wmsRefresh.inc < prev    next >
Encoding:
Text File  |  2003-02-21  |  5.9 KB  |  135 lines
  1. <%
  2. '+-------------------------------------------------------------------------
  3. '
  4. '  Microsoft Windows Media
  5. '  Copyright (C) Microsoft Corporation. All rights reserved.
  6. '
  7. '  File:       Refresh.asp
  8. '
  9. '  Contents:    Code for refresh timer that draws in gutter of certain pages
  10. '
  11. '  Dependencies: LocStrings.asp, WMSConstants.asp
  12. '
  13. '--------------------------------------------------------------------------
  14.  
  15. Const PAGE_NEEDS_REFRESH = "true"
  16.  
  17. Dim g_dwRefreshRate
  18.  
  19. if Request.Form( "RefreshRate" ) <> "" then
  20.     g_dwRefreshRate = Request.Form( "RefreshRate" )
  21.     Session( "RefreshRate" ) = g_dwRefreshRate
  22. else
  23.     g_dwRefreshRate = Session( "RefreshRate" )
  24.     if( "" = g_dwRefreshRate ) then
  25.         g_dwRefreshRate = Session( "RefreshRate" )
  26.     end if
  27. end if
  28.  
  29. '////////////////////////////////////////////////////////////////////////////////////////////////////
  30. Sub WriteRefreshMetaTag()
  31.     Response.Write( GetMetaRefreshTag )
  32. end Sub
  33.  
  34. '////////////////////////////////////////////////////////////////////////////////////////////////////
  35. Sub WriteRefreshScript()
  36.     if( g_dwRefreshRate > 0 ) then
  37.         %><script language="JavaScript">setTimeout( "DoRefresh();", <%= g_dwRefreshRate * 1000 %>, "JavaScript" );</script><%
  38.     end if
  39. end Sub
  40. %>
  41.  
  42. <script language="JScript" RUNAT=Server>
  43. ////////////////////////////////////////////////////////////////////
  44. function GetTimeInUTC()
  45. {
  46.     var d;
  47.     var UTCNow;
  48.     
  49.     d = new Date();
  50.  
  51.     return( d.toGMTString() );
  52. }
  53. </script>
  54.  
  55. <%
  56.  
  57. '////////////////////////////////////////////////////////////////////
  58. Function GetMetaRefreshTag()
  59.     Dim strMeta
  60.     Dim strUrl 
  61.     
  62.     strUrl = Request.ServerVariables("url") & "?" & Request.QueryString
  63.     
  64.     if 0 = g_dwRefreshRate then
  65.         strMeta = ""
  66.     else
  67.         strMeta = "<META HTTP-EQUIV=" & chr(34) & "refresh" & chr(34) & _
  68.         " content=" & chr(34) & ( g_dwRefreshRate + 2 ) & ";url=" & strURL & chr(34) & "/>"
  69.     end if
  70.     
  71.     GetMetaRefreshTag = strMeta
  72. end function
  73.  
  74.  
  75. '////////////////////////////////////////////////////////////////////
  76. Sub DrawRefreshControl( bPPLevelPage )
  77. %><!-- Begin Refresh Timer -->
  78. <form name="RefreshInterval" onMouseUp="event.cancelBubble=1;return false;" action="<%= Request.ServerVariables("url") %>?<%= Request.QueryString %>" method="post" AUTOCOMPLETE="OFF">
  79. <table width="100%" valign="bottom" cellpadding=0 cellspacing=0 border=1 style="border-collapse:collapse;cursor:default;" hspace="0" vspace="0" bgcolor="#99CC66">
  80. <tr>
  81.     <td>
  82.         <table width="100%" cellpadding=0 cellspacing=5 <%'class="refresh" %> border=0 hspace="0" vspace="0">
  83.         <tr align="left">
  84.             <td align="left" valign="middle">
  85.                 <table cellpadding=2 cellspacing=2 border=0>
  86.                 <tr valign="top">
  87.                     <td valign="middle" align="left" width="16">
  88.                         <a name="RefreshButton" href="JavaScript:DoRefresh()" oncontextmenu="JavaScript:event.cancelBubble=true;return false;" border=0><img width="16" height="16" src="img/refresh_icon16.gif" border=0 alt="<%= Server.HTMLEncode( L_CLICKTOREFRESHLOCAL_TEXT ) %>"></A>  
  89.                     </td>
  90.                     <td valign="middle" class="refreshText" nowrap>
  91.                         <%= SpacesToNonbreak( Server.HTMLEncode( L_CURRENTASOFCOLON_TEXT ) ) %>
  92.                     </td>
  93.                     <td valign="middle" align="left" nowrap class="refreshTimestamp">
  94.                         <b><script language="JavaScript">var szDateTimeUTC = new Date(); var szLocDate = szDateTimeUTC.toLocaleString(); document.write( szLocDate );</script></b>
  95.                     </td>
  96.                 </tr>
  97.                 </table>
  98.             </td>
  99.             <td>
  100.                   
  101.             </td>
  102.             <td align="right" valign="middle">
  103.                 <table cellpadding=2 cellspacing=2 border=0>
  104.                 <tr valign="top">
  105.                     <td class="refreshText" align="right" valign="middle" nowrap>
  106.                         <%= SpacesToNonbreak( Server.HTMLEncode( L_SELINTERVAL_TEXT ) ) %>
  107.                     </td>
  108.                     <td valign="top" align="right" valign="middle">
  109.                         <select name="RefreshRate" onChange="JavaScript:document.RefreshInterval.RefreshSubmit.disabled=false;" class="input">
  110.                             <option value=0    <% if 0    = g_dwRefreshRate then Response.Write( " selected " ) end if %> ><%= Server.HTMLEncode( L_NEVER_TEXT ) %>
  111.                             <option value=60   <% if 60   = g_dwRefreshRate then Response.Write( " selected " ) end if %> ><%= Server.HTMLEncode( L_ONEMINUTE_TEXT ) %>
  112.                             <option value=300  <% if 300  = g_dwRefreshRate then Response.Write( " selected " ) end if %> ><%= Server.HTMLEncode( L_FIVEMINUTES_TEXT ) %>
  113.                             <option value=600  <% if 600  = g_dwRefreshRate then Response.Write( " selected " ) end if %> ><%= Server.HTMLEncode( L_TENMINUTES_TEXT ) %>
  114.                             <option value=1800 <% if 1800 = g_dwRefreshRate then Response.Write( " selected " ) end if %> ><%= Server.HTMLEncode( L_THIRTYMINUTES_TEXT ) %>
  115.                             <option value=3600 <% if 3600 = g_dwRefreshRate then Response.Write( " selected " ) end if %> ><%= Server.HTMLEncode( L_SIXTYMINUTES_TEXT ) %>
  116.                         </select>
  117.                     </td>
  118.                     <td>
  119.                         <input type="button" onClick="JavaScript:SetRefreshRate();return false;" class="input" name="RefreshSubmit" value="<%= trim( Server.HTMLEncode( L_OKAYBUTTON_TEXT ) ) %>" disabled>
  120.                     </td>
  121.                 </tr>
  122.                 </table>
  123.             </td>
  124.             <td width="100%">
  125.                  
  126.             </td>
  127.         </tr>
  128.         </table><% WriteRefreshScript %>
  129.     </td>
  130. </tr>
  131. </table>
  132. </form><%
  133. end Sub
  134. %>
  135.